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I. INTRODUCTION 


A. SIGNIFICANCE 

Experimental studies have shown that enhancement techniques 
applied on the steam side of horizontal condenser tubes may 
Significantly reduce the thermal resistance and thus reduce 
the overall size and weight of the condenser. Several work- 
shops and conferences on heat exchangers have addressed 
Spectiiec areas in need of research {Refs. 1,2,3}. Recently, 
there have been many investigations into possible alterna- 
tives for enhanced heat-transfer surfaces in the design of 
Mmeaceexehangers {Refs. 2,4,5,6,7}. Webb (Ref. 8} in 1980 
published an excellent review of enhancement methods as 
applied to condensers. 

EMhancement techniques can generally be divided into 
two major categories: water-side enhancement and steam-side 
enhancement. Water-side enhancement is covered extensively 
by Bergles & Jensen {Ref. 9}. Various steam-side enhance- 
Henbts inciude low integral fins, surface coatings, fluted 
tubes and roped tubes. 

The goal of any enhancement technique is to lower the 
thermal resistance to the point where the technique becomes 
economically feasible. Althouth Bergles & Jensen {Ref. 9} 
show that extensive reduction in thermal resistance can be 


Semamedwon the water-side, it is felt that a significant 
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portion of the overall thermal resistance can be reduced by 
enhancement techniques on the steam-side. Both methods must 
be examined independently because the best enhancement for 
One side may not be the best for both sides. 

Several research efforts have been undertaken at the 
Naval Postgraduate School to model steam surface condensers 
and analyze their thermal performance numerically {Refs. 
10,11,12}. Based on numerous computer runs used to analyze 
Serrerent combinations of both inside and outside enhancements, 
iomis felt that further experimental research should be 


conductdd on steam-side enhancement techniques. 


bee =ObJECTIVE 
The objective of this research effort was to obtain 
smooth-tube baseline data necessary to act as the standard 
for future enhancement techniques. Both the inside and 
outside heat-transfer coefficients had to be identified 
and all experimental methods used to obtain and reduce the 
recorded data had to be well documented so that future 
testing using enhanced tubes would be performed under identical 


eenmcd: tLONS. 
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It. DESCRIPTION OF BXPERIMENTAL APPARATUS 


A. OVERVIEW OF SYSTEM 

Piesexpcuimemtal apparatus used in this investigation, as 
Megeribed in Heference 13, was constructed of stainless steel 
and 152.4 mm (6 in) diameter Corning Pyrex glass piping. An 
overall schematic of the system is shown in Figure 2.1 and 
Seonouosraph is shown in Figure 2.2. A boiler section 
Seeeceme (12 in) in diameter and 487.7 mm (19.2 in) in 
height, with a 304.8 mm (12 in) to 152.4 mm (6 in) reducing 
section, provides steam for the system. Ten Watlow 
4000-Watt, 480-Volt stainless steel immersion heaters are 
used to provide input power. Each heater is 15.9 mm (5/8 in) 
diameter and 279.4 mm (11 in) long. All heaters are 
CPeommected in parallel. 

Stean travels up the glass piping to a height of 3.1 o 
(10 ft) and makes a 180-degree bend followed by a 1.52 m 
(5 ft) straightening section prior to passing through the 
condenser test section. Two helically-wound, water cooled 
coils of 9.5 mm (3/8 in) diameter copper tubing act as a 
dump condenser to remove all excess steam. A 25.4 mm (1 in) 
diameter stainless steel tube returns condensate by gravity 


mo cune boiler. 


1) 





B. CONDENSER TEST SECTION 

ie condenser Lest Section is made of stainless steel, 
152.4 mm (6 in) in diameter and 457.2 mm (18 in) in length. 
Figure 2.3 shows a schematic and Figure 2.4 shows a photo- 
graph of the test section. Steam is condensed on a single 
horizontal tube. Two types of smooth test tubes were 
constructed of high-grade copper to provide baseline data for 
miolde and Outside heat-transfer coefficients. An instrumented 
bube, constructed as shown in Figure 2.5, and an uninstrumented 
tube of the same dimensions were used to obtain initial data. 
The uninstrumented tube was constructed identical to the 
instrumented tube but there were no channels machined for 
Wiemmocolwpme instaliatvion. The active condensing length 
mess lo3.3 mm (5.25 in) with a suitable correction applied 
for the "fin" effect created by both ends of the tube not 
being in direct contact with the steam on the outside, 
Miewcooled by water on the inside. The fin-effect calculations 
are described in Appendix A. 

The test tube is held in place by nylon holding rings as 
described in Reference 13. An additional O-ring was placed 
inside the inlet section to prevent cooling water from 
leaking into the grooves of the instrumented test tube. 

Nylon was used to minimize axial conduction from the test 
Section. A nylon mixing chamber described in Reference 13 
fee placed in the outlet side prior to measuring the temper- 


ature to ensure thorough mixing of the coolant. A 114.3 mm 
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(4.5 in) diameter double glass window, heated byenot air 
to prevent fogging, was used to provide visual observation 
of the condensing process. 

A 12.7 mm (0.5 in) port at the dump condenser section 
was used as an overpressure relief line and boiler fill 
mime. An in-=tine 0.108 MPa (1 psig) relief valve was used 
to allow gases to escape while warming up the system. 

A 12.7 mm (0.5 in) vacuum valve was placed in a branch line 
eet ot wc relief line to allow filMing of the boiler as 
described in Appendix B. All connections were assembled 
with Swagelok fittings sealed with Teflon ferrules to ensure 
meat tighness. 

1. Cooling Water System 

A closed loop cooling water system was designed and 
momephuctved tO Circulate cooling water through the test 
Peoemoene 2 0.001 cu-m (2.8 cuft) stainless-steel tank was 
used as a reservoir which fed the suction end of a close 
coupled centrifugal pump rated at 0.0022 n?/s (11 GPM) at 
ieeeoem (20)4ft) of head. A 19.1 mm (3/4 in) diameter bronze 
needle valve was used to regulate the flow which was 
monitored by a rotameter with a full-scale range of 6.94 
B-4 m?/s (11GPM). See Figure 2.6 for details. The maximum 
flow rate through the test tube was 4.57 m/s (15 fps) at 
an inlet temperature of 15.6°C (60°F). The centrifugal 
pump needle valve arrangement provided a flow rate accuracy 


emo oerecent On a scale with 100 divisions. After leaving 
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the condenser test section, the water was cooled back down 
to the 15.6°c (60°F) bath temperature by means of a 11.73 kW 
(40,000-BTU/Hr) direct expansion heat exchanger. The heat- 
exchanger refrigerant dissipates the heat to the atmosphere 
through a 10.55 kW (3 ton) air-conditioning unit. The 
eerercr section is illustrated in Figure 2.7. 

The closed loop cooling water system was chosen in 
Order to more closely monitor the water flow rate and the 
inlet temperature to the test condenser tube. The reservoir 
Mmeemecasity filled by use of the installed fill line and 
drained by use of a siphon tube. 

2. lest Condenser Tubes 

Initial smooth tube data were taken using an instru- 
memmedecOpper tube as illustrated in Figure 2.8. Gonstruction 
Mmcolemintstrumented tube was carefully performed in accordance 
with Figure 2.5. The instrumented tube must be installed 
meec@rdineg to the instructions as outlined in Appendix D to 
prevent damage to thermocouple wires and leakage from the 
memenieeftacnh wall thermocouple should be checked for proper 


Seeoratton prior to taking any data. 


C. DUMP CONDENSER SYSTEM 

A dump condenser is installed to condense excess steam 
from the test section. Cooling water is supplied from tap 
water through two parallel, helically-wound, 9.5 mm (3/8 in) 


feameper, copper coils. One smaller diameter coil is placed 
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inside the other, while both are 457.2 mm (18 in) high. The 
tap water flow rate is controlled by a 19.05 mm (3/4 in) 
diameter bronze needle valve and is monitored using a 
rotameter. System internal pressure can be controlled by 
reducing the flow of cooling water to the dump condenser. 
For a given boiler power input, a dump condenser rotameter 


reading will correspond to a system pressure. 


D. VACUUM SYSTEM 

Two operational vacuum systems are available to maintain 
Ssub=atmospnheric conditions within the apparatus; an air 
ejector, powered by 1.1 MPa (160 psig) air supplied by the 
mecnanieal Fngineering Department reciprocating air com- 
pressure, and a portable mechanical vacuum pump (Figure 2.6). 
Bither system may be used to initially draw down the pressure 
but only the air ejector may be used while the system in in 
Operation due to the lack of a nitrogen cold trap on the 
mechanical vacuum pump. The vacuum system inlet valve can 
Besused to throttle the air ejector to maintain any system 
pressure above 13.8 kPa (2 psia). This system is also 
useful in removing noncondensable gases from the apparatus. 
The sequential drawing down of vacuum on the system while 
steaming, shutting the vacuum inlet valve and raising the 
pressure to about 13.8 kPa (2 psia) by adjusting the dump 
condenser throttle valve was found to be an effective 
method of removing noncondensable gases. This procedure 


should be repeated about three times. 
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The system will not maintain vacuum due to cracked silver 
soldered connections at the base of the dump condenser 
section. The copper tubing used as a dump condenser pene- 
trates the stainless steel base and was sealed with silver 


solder which cracked, producing small leaks. 


BE. INSTRUMENTATION 
1. Heater Power Control 

Power input to the apparatus is regulated by a 
voltage sensing circuit. Line voltage (440-VAC) is fed into 
eeoartterential input precession voltage attenuator which 
divides the line voltage by one-hundred. This stepped- 
down voltage passes through a True Root Mean Square converter 
stage on which the integrated period has been reduced to 
mpeucei ms. The output of the TRMS converter is buffed and 
compared to a reference voltage provided by a potentiometer 
mounted on the front panel. See Figure 2.9 for a general 
view of the control panel. The comparator output is fed 
memthne control input of a Halmar silicon-controlled rectifier 
power supply which provides the voltage applied to the heater 
elements. The buffered output of the TRMS converter is 
amplified and filtered to provide a normalized voltage 
Spas proportional to the actual voltage output of the 
power supply which is monitored by the data acquisition/ 
reduction system. A line diagram is provided in Figure 


Ze. 
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2. Pressure Measurement 

A U-Tube mercury manometer, calibrated in millimeters, 
is installed to measure system pressure. The pressure tan 
is located at the test section and is tilted upward to avoid 
steam from collecting in the manometer (Figure 2.4). A 
vacuum valve is installed in the pressure line to prevent 
condensation from accumulating in the manometer. A small 
amount of water eventually collects in the manometer, but 
Chis discrepancy is taken into account by the data acquisition/ 
reduction software with manual input to the keyboard of 
mercury height followed by water height. 

3. Temperature Measurement 

Various temperatures are monitored throughout the 
System to include: 1. test section cooling water inlet 
ma@emecurpley, 2. steam, 3. condensate return, 4. ambient, 
5. test tube wall and 6. cooling water reservoir. The 
mi ieraumre rise across the test section is measured by a 
Hewlett-Packard quartz crystal thermometer accurate to 
0.04°C. The location of the temperature probes are shown in 
Figure 2.4. The cooling water reservoir temperature is 
monitored by a direct readout alcohol-in-glass thermometer. 
All other temperature measurement is accomplished by 
copper-constantan thermocouples: two for the steam, six for 
Piemreotecimoe wall and one for the condensate return. fach 
temperature measurement, except for the cooling water 


reservoir, is read directly by a Hewlett-Packard 3497A 
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data acquisition system, which is controlled by a Hewlett- 
Packard 9826 computer. 

During operation, the six wall thermocouples 
experienced temperature fluctuations on the order of E16 uV. 
Therefore, each thermocouple was scanned for ten seconds 
and the ten readings were averaged to obtain a more accurate 
measurement. All other thermocouples maintained a steady 
meadeuuewith Only 1.0 wV¥ fluctuation. The quartz crystal 
thermometerappeared to operate very well with no fluctuations. 

Two of the thermocouples were calibrated. One 
thermocouple was made from the beginning of a spool of 
copper-constantan wire and one was made from the end. 

All other thermocouples were fabricated from wire on this 
mocet tia was assumed that the properties of the copper 
and cOnstantan do not change along a given section of wire 
for any given spcol. Both thermocouples were calibrated 


by the method described in Appendix 5. 
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Til. SYSTEM OPERATION 


After a thorough cleaning using the procedures described 
in Appendix F, a test tube may be installed by the steps 
outlined in Appendix D. Each system start-up should be 
accomplished by the procedures described in Appendix B. 

Once the system has reached steady-state conditions (about 
30 minutes), data taking for a given test tube may commence. 
Mraene each data run, a frequent check of the test tube 
should be made to ensure the desired condensation mode: 
Pmidetedtemwi1 se Or filmwise. When the tube cleaning procedures 
Weep etarx F are utilized, filmwise condensation conditions 
fee tasy £0r about four hours, followed by mixed filmwise 
mcm orOpwise conditions. Hach data set consisted of eight 
cooling water velocities ranging from 1.37 m/s to 3.84 m/s 
baroueh the test section. At a given velocity setting, the 
flow was allowed to steady out for two minutes before 
recording temperatures. The computer signalled by both 
audio and visual means when the system was ready for a new 


data voint. An entire data set was recorded in 40 minutes. 
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IV. DATA ACQUISITION/REDUCTION 


A. DATA ACQUISITION AND STORAGE 

A Hewlett-Packard (HP) 3054A automatic data acquisition/ 
control system was used to monitor temperatures from the 
thermocouples and the quartz crystal thermometers. Figure 4.1 
shows a photograph of the system. This system included an 
HP 3497A data acquisition/control scanner and an HP 3456A 
feet cal voltmeter with a resolution of 100-nanovolts. An 
HP 9826A computer, interfaced with the data acquisition/ 
control system, was used as a controlling unit and provided 
storage for data. Information was entered through the key- 
Pearod to prompt the data acquisition/control unit to auto- 
Matically scan each channel. Channel assignments are listed 
in Table 1. These raw data were then transferred to a 
computer disk under a user-specified file name for later 
reduction to usable form. The ability to store raw data 
directly enabled these data to be reduced at any time and 


allowed flexibility for changes to data-reduction software. 


B. DATA REDUCTION 

Following data acquisition for each data point, results 
were computed according to the stepwise procedure outlined 
mieonerm@ext section, and were then printed on an HP 6771G 
Maieanialeprimter. Appendix G shows an example of a represen- 
tative data run. Results were also stored in a user-specified 
plot data file for subsequent plotting using the program PLOT. 
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mee OL SPWESt SOLUTION PROCEDURE 


1. Program SIEDER 


calculated, 


iP 


Compute 
Compute 
Compute 
Compute 
Compute 
Compute 


Compute 


average cooling water temperature. 
average wall temperature. 

cooling water velocity. 

mass flow rate of cooling water. 
Reto usanorerred vorcoOoling waver, 
average inside wall temperature. 


IVE 


Assume fin efficiency. 


Compute 


inside heat-transfer coefficient. 


Compute Nusselt number. 


Calculate fin efficiency using previously- 


heat-transfer coefficient. 


Recalculate heat-transfer coefficient. 


Recalculate Nusselt number and compare to Nusselt 


Bumber fOund in j and iterate if not within 1%. ObBebGale) 5) yu 


shows an example of plotted data and Appendix G shows a 


listing of PLOT. 


2. Program NSFDRP 


ae 


oe 


Ce 


ie 


Compute 
Compute 
Compute 
Compute 
Compute 


Compute 


On outside area. 


average cooling water temperature. 
cooling water velocity. 

mass flow rate of cooling water. 
heat transferred to cooling water. 
ie ea aoc pchahltewcden, Cremee. 


overall heat-transfer coefficient based 
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Compute wall resistance based on outside area. 

h. Compute Reynolds number of cooling water. 

Scum oat not ficiency, 

j- Compute inside heat-transfer coefficient. 

k. Calculate cooling water temperature rise. 

Peo te fingetficiency using previously-— 
calculated, heat-transfer coefficient. 

m. Recalculate heat-transfer coefficient and iterate 
Daeoiewienan 1% of the value found in h. 

n. Calculate condensing heat-transfer coefficient 


rEom Ug» Ro and ns. 


TABbE, 


HP 3497A Channel Assignments 


Channel Assignment 
20 steam 

ea steam 

a2 condensate 
23 room 

Oak room 

25 waa 

26 wall 

Pa | wall 

28 wall 

29 wall 

oe wall 


20 





‘. ” “oe 
BSS 
. i OG, 


» a 
* = “3 
< > 
. Ke 
oS NS 
we SS a) 


r 


woyshg uotyonpey/uoTytstnboy eyeq Jo ydersoqoug Ly einsty 


RY Bt 


, 


i” at a hi, 
sled 


eee = i , a a al I9z,oOUoULS 


Meat TOIZUOD : ii “ | zeqskig 241eNO F 


/uoTqtstnboy eyeq 


4 
on’ 


ee es eee 8 SE Rs OA Ss calatenaehe teal 


=e - MeV SSPA © CFR PRTY 
SAM HA HSE AS ONICILE FH ROR 





Sul 











Vem Ui TS AND DISCUSSIONS 


A. INSIDE HEAT-TRANSFER COEFFICIENT 

Experimental data were taken at atmospheric pressure by 
the procedures outlined in Chapter III. Twelve data sets 
were taken to determine the inside heat-transfer coefficient. 
The first four data sets were utilized to test the data 
acquisition/reduction program SIEDER and the middle five 
data sets experienced mixed filwise and dropwise condensa- 
tion conditions. Data sets 10-12 showed filmwise condensa- 
MioiebaroucnouL each Of the data collection sets. Figure 5.1 
is a plot of data taken during run number 10. Similar results 
Meme obtained for data runs 11-12. The analysis of all 
data showed a Sieder-Tate coefficient of 0.02910.001 to be 
representative for the experimental apparatus (Table II). 
The Sieder-Tate correlation for fully developed turbulent 
flow has a leading coefficient of 0.027 {Ref. 16}. Rose 
meee t4) shows a leading coefficient of 0.030 with an 
L/D ratio of 17, which is in good agreement with the results 
of this thesis. The L/D ratio for the experimental apparatus 
used during this thesis was 18, well below that for fully 
developed flow {Ref. 16}; therefore the inside heat-transfer 


coefficient was correspondingly higher. 


Bie: 











syedstigin 108! 


Sieder-Tate Coefficients 


File Ci 
10 .0291 
id .0287 
12 0287 


B. OUTSIDE HEAT-TRANSFER COEFFICIENT 

Experimental data were taken at atmospheric pressure by 
ime sopacedures oullined in Chapter III. Four data sets were 
recorded to detemine the outside heat-transfer coefficient 
using the program NSFDRP (Appendix G) to reduce the raw 
feof teure 5.2 shows a plot of the four data sets along 
With a curve showing the corresponding Nusselt prediction. 
All of the data lie above the theoretical curve. This 
discrepancy has two possible explanations. Hither dropwise 
condensation and/or vapor shear associated with a vapor 
velocity of 3 m/s could increase the condensation heat 
transfer coefficient. The effect of vapor shear has been 
studied by many investigators including Rose as described 
in a very recent report {Ref. 18}. Rose reported that when 
vapor velocity was increased to 7 m/s for refrigerant-113, 
the condensing coefficient increased by 20%. The presence 
Mameotroomlse Condensation significantly raises the heat- 
transfer coefficient, sometimes as much as ten times 


meer. 17}. 
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A large amount of scatter occurred in the recorded data. 
This situation could have occurred due to noncondensable 
Bases and the inability to regulate system pressure. During 
normal operation, the Mechanical Engineering Department 
mir COMpressor (160 psi) was used to operate the air 
ejector. During the condensation heat transfer coefficient 
Gis, tnhis alr cOmpressor was inoperative; therefore, house 
air (50 psi) was used. This source of air had a very low 
Sepacley and fluctuated greatly during each data run, 
perhaps causing varying amounts of air to be in the vicinity 
of the test tube. 

iiemtor Limited and lack of reliable data, very little 
ean be concluded for the results thus far for the condensing 
coefficient. More data is necessary to reach any final 


eenclusions. 
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VI. CONCLUSIONS AND RECOMMENDATIONS 


A. CONCLUSIONS 

1. An experimental apparatus that allows the study of 
condensation heat transfer of steam on a single, horizontal 
tube has been designed, constructed and instrumented. 

ae tlhe water-side heat-transfer coefficient was 
established using the Sieder-Tate correlation with a leading 
coefficient of 0.029 2 0.001. 

3. An analysis scheme to establish the condensing heat- 


transfer coefficient has been outlined, and data acquisition/ 


reduction programs have been written and tested. 


B. RECOMMENDATIONS 

1. To prevent leaking, install Swagelok fittings with 
Teflon ferrules into the dump condenser lines penetrating 
the stainless base of the dump condenser section. 

2. Rig suspension cables to remove the dump condenser 
Section by attaching them in the ceiling using metal studs. 
Peis call a thermopile at the outlet of the test 
condenser tube as a second means of measuring the cooling 

water temperature rise across the test section. 
4. Use a commutating bridge to accurately determine 


Pomlereteaver resistance over the full range of power 


Sevtings. 
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Demeelitceall 4 nitrogen cold trap on the mechanical vacuum 
pump. | 

6. Install a permanent drain line on the cooling water 
reservoir to replace the temporary siphon tube. 

7. Replace the extension wire from the ice bath to the 
data acquisition system with thermocouple-quality copper 
wire. 

8. After recommendation No. 1 above is completed, check 
the system for leak tightness under vacuum conditions. 

9. Complete experimentation to determine the condensing 
heat-transfer coefficient at 1 atmosphere as well as under 


Vacuum conditions. 
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APPENDIX A 


SAMPLE CALCULATIONS 


1. INSIDE HEAT-TRANSFER COEFFICIENT 

A set of calculations was performed to verify data reduc- 
motmprogram slmDRR. One data point was selected arbitrarily 
from data set 10. 

a. Given the following inlet and outlet temperatures, 


compute average cooling water temperature. 


1p eo) C 
2g ae 


eno) + 26.32)/2 = 25.13 -C 


a 
T 
b. Compute average wall temperature. 
T 


_ O 

a (Ty tT ott 3tT tty stt¢) /6 = O20 6 

G. Compute water velocity.: 

Flow meter reading = 25% and from the calibration 


curve, V = 4.5 PGs Salons es eee ity Sas 
From Reference 16, Table A.6 at 300 K the following 


meeperties are found: 


ein = Deeks, 

Wis = 855E-6 Neen 

= = 4.179 kJ/Kg-K 

2 = 613E-3 W/m-K 

Vp = 1.003E-3 n’/kg 

d. Compute mass flow rate of cooling water. 
A = nD, 7/4 

i. = a i ve—m0s1 73 ke/s 
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e. Compute heat transferred to cooling water. 


eS = a 7 (1-2) 

Q = 1721 W 

if Compute average inside wall temperature. 
ie 36 (D,/D.) ew K 6 L Reference 17 
iS Bo iisate 

W 

Poe Op AT 

wi = “w W 

imo. 56 C 

wi 


g. Compute log mean temperature difference. 


Z 


[Wee ren erii ciency is assumed to be 20% for first 


LMTpD = (T -t, )/in[(t -T, /(2,,-75)| 


Wi 


mMicveracvuLlon. 


i. Compute heat-transfer coefficient. 


Di 
Il 


Oyen D. (L+L, xn, +L, x5) LMTD 
7772 W/n*=K 


BE 
I 


j- Compute Nusselt number. 


ie = Pee 
Nu = 161 --------- fit ce ine? agankon 
k. Calculate fin efficiency. 
P. = 27 D, =a ||) eon 
Pee) 6|6c= 0.100 m 
2 a 
Peewee) (DD =D, ) = 0.00038 xe 
1 O Ops 1 
A, = 7D, (D.-D,) = 1.6 E-4 si 
r 2. uae 
= a) 
m Vv hs P/k pA, 
m, = Tomer 4 
=v & 
| 2 eA 
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m5 = ile 3 2 

ey > tanh (m, L,)/m, L, 
‘a By ONF Ae) 

No = eS 


Il, Recalculate heat-transfer coefficient. 

h. = 7589.9 W/m*-K 

m. Recalculate Nusselt number and compare to previous 
calculated value. 

Mie lo7. ed 

This value for the Nusselt number agrees within 0.3% of 
the computer generated value (Nu Soe We 
2. CONDENSATION HEAT-TRANSFER COEFFICIENT 

Awset Of calculations was performed to verify the data 
reduction program NSFDRP. One data point was selected from 
facta run 1. 

a. Given the following inlet and outlet cooling water 
temperatures, compute average water temperature. 
i= 30R06 C 
ee Sens C 
EL, )/2 = 31.3°C 


u O 
ae = Jon? C 


b. Compute water velocity. 

Flow meter reading = 30% and from the calibration curve 
ee= 1. O4 m/s 

c. Compute mass flow rate of cooling water. 

from Reference 16, Table A.6 at 304K the following 


PGeperties are found: 
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pir 529 
Meets se N=s/n- 


u = 
C = 4.178 kJ/kg-K 
k = 0.62 W/m-K vw = 1.005 E-3 n?/ke 
7 2 
A = mD, [4 : 
A = 1,267 E-4 m* 
ee A/V 
m = .2067 kg/s 
d. Compute heat transferred to cooling water. 
Q = 2133 W 


e. Compute LMTD. 

LMTD = (To-T,)/1n [(7,-74)/(2,-7)] 

Meamme= 65.40°C 

f. Compute overall heat-transfer coefficient based on 
outside area. 
a = wD L 

re) 

ie = Q/A , LMTD 
4086.71 Vimo on 


U = 
O 
eg. Compute wall resistance based on outside area. 
qT = D La OB YD Lee 
R_ = 1.003 E-5 ee 
h. Compute Reynolds number of cooling water. 
Re ~ ue Di/ Ve 
Rem) 20035 
W 
1. Assume fin efficiencies of N4 = 0320 and Roms Oe 


Oe 


and assuming (u/u.) =1.0 
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j- Compute inside heat-transfer coefficient. 
ae oi 1p, lez; 
(k, C./D,) Re, *” Pr rates 


Soo 6/2 we 


Ss 
if 


ie 
1 


k. Galculate fin efficiency using previously-calculated 


Meat-transfer coefficient from j. 


mM, = 83.56 ee 
= 11 Vere ae 

M5 = ; 

n, = 0) 4218 

= ea, 


meomenmeterence 16 at 345 K, eae 389R-6 N-s/m* 


(u/u ea = 1.1 


W 
femeeeecotculate neat transfer coefficient and iterate if 
not within 1% of the value found in j. 


nh, = 9387 een 


ile Calculate condensation heat-transfer coefficient. 





1 
DL 
h = ae : ae 
D. (Ltn.l.,tnau.)h. 
‘ US Ds Be Bey Ole: As - 
Ps 
ha = 10405 W/m~-K 


This value for the condensation heat-transfer coefficient 


agrees within 1% of the computer generated value ae =F O50) 
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APPENDIX B 
Seow ARLUP PROCEDURES 


ieee ctitiarize all valve numbers by referring to Figure 2.1. 
2. Will boiler with distilled water to a level 4 inches 
below top of sight glass. 

Sever Vacuum pump or air ejector. 

b. Open suction line supply valve (3). 

ec. Allow vacuum pump/air ejector to run until 15 inches 
Hg of vacuum is attained. 

peuolose suction line supply valve (3). 

Eee eau Gown vacuum system. 

f. Open discharge on distilled water tank. 

g. Open distilled water supply line valve (6). 

h. Close distilled water supply line valve (6) when 
boiler is filled to 4 inches below the top of the 
ciety glass. 

3. For vacuum operations, start vacuum pump/air ejector 
then open suction line supply valve (3) until desired 
pressure is reached. Suction line supply valve may be 
throttled to maintain pressure. 

4Z. tnergize viewing window heater and adjust rheostat to 
110. Open air supply valve (9) about 3 turn. The air 
supply may require further adjustments to keep viewing 
window clear. 


5. Open dump condenser supply valve (2) fully. 
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6. Fill cooling water reservoir. 

a. Open reservoir stop valve (10). 

b. Open test section throttle valve (11). 

¢. Open reservoir fill valve and allow tank to fill to 

about 101.6 mm (4 in) from the top. 
feeeeolhose reservoir stop valve. 
e. Energize cooling water circulation pump. The switch 
is located above the pump. 

7. Shut the following power supply breakers: 

as. Panel p-5 switch 3. 

Pepeeweebch 5 On side of control panel. 

cee oveseci | on front panel. 
8. Increase boiler heater voltage to a maximum of 200 
volts during warmup; about 15 minutes. When operating under 
vacuum conditions use a lower voltage to limit vibration 
Meeoiass Piping. 
9. As steam is generated, air is expelled through a relief 
valve. System pressure should never be allowed to exceed 
ey psig. 
10. Once steam reaches condenser test section (about 30 
minutes following startup), full power operation may begin. 
11. The apparatus should be allowed to steam for 30 minutes 


Pamor lO taking any data. 
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APPENDIX C 

SYSTEM SHUTDOWN PROCEDURES 
fee cercace bOiicr heater voltage to zero. 
2. Open all three circuit breakers. 
3. Secure view window heater rheostat switch; allow air 
womihow fOr about 15 minutes longer. 
4. secure cooling water circulation pump. 
puuotose cooling water throttle valve. 
6. Close dump condenser supply valve. 
7. If in use, secure vacuum suction supply valve followed 
by vacuum pump/air ejector. 
8. For cleaning purposes only, the boiler may be drained 
Poeiiicciwewane vwhe Swaglok nut housing the condensate return 
thermocouple. The Teflon ferrules require only hand 


Peenuening. 


D2 





APPENDIX D 


TEST SECTION INSTALLATION PROCEDURES 


1. Install outlet nylon holder, mixing chamber and return 
menenonvo provide 6.35 mm (0.25 in) diameter bolts and 
tighten. 

eee ltace clean test tube into inlet nylon holder and care- 
fully slide holder and test tube into condenser test section 
snugly. 

3. Align test tube to have one thermocouple channel vertical. 
4. Carefully slide thermocouples into channels. 

5. Ensure wires are straight and lined up with markings on 
inlet nylon holder and tape into place. 

Seer osttion nylon thermocouple wire retainer over wires. 
fees tace inlet nylon holder over end of test tube and 
tighten all bolts. 

eeitetorze Circulation pump and check for leakage around 


memmeectrons bOth inside and outside test section. 


Ie, 








APPENDIX 


THERMOCOUPLE CALIBRATION 


TT. EQUIPMENT USED 

as thermocouple wire 

Copper-constantan, 0.245 mm (0.01 in) Teflon coated wire 
was used for all thermocouples. (Omega Catalogue) 

b. Calibration bath 

A Rosemount Hngineering Co. Model 913A calibration bath 
shown schematically in Figure A.1 was used. 

1) Heating: Electrical 

eeecolime: Liquid Nitrogen 

Note: 

Once a desired temperature is reached, the temperature 
is held constant by rapid cycling between heating and cooling. 
The manufacturer rates the temperature bath fluctuation 
to be less than 0.01°C. Observations dUmgEn est Mesca ll) ord = 
tion procedure showed bath temperature fluctuation to be 
less than 0.025°C (1.0uV). 

EwemimermocouUple readout 

An HP 3054A Automatic Data Acquisition/Control System 
with resolution of 0.1 uV was used to obtain data. 

fuerte rence Point 

A reference junction was placed in a 0.15 m Dia X 0.28 m 


high Thermos flask filled with finely-crushed ice. 
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e. renmeLa uu re measurement 


Mercury-in-glass thermometers with a resolution of 0.1°C 
were used. A total of four wh Samemevere were used with the 
following ranges: 0-25, 25-54, 50-76 and 76-104°C. 

2. PREPARATION 

a. Procedure 

Two thermocouples were prepared, one at the beginning 
Picmcune Obner at the end of a reel of thermocouple wire, 
using the following procedure: 

1) The Teflon insulation was removed for a length of 
about 4 mm from one end of a 2 m long piece of wire 
and a thermocouple bead was made using a Dynatech 
Corporation thermocouple welder. 

2) The other end of the thermocouple wire was soft 
soldered to a pair of heavy duty copper wires. 

3) Heat shrink insulation was placed on the soldered 
end. 

Peaercuerence point 

The thermocouple reference junctions were placed in a 
5 cm test tube and then into a thermos flask containing 
finely crushed ice as shown in Figure A.1. 

c. Thermometers 

Thermometers were completely immersed in the calibration 
bath as recommended by the manufacturer. 

d. Analysis 

A short computer program (TC_CAL) was written to accept 


the thermocouple readings through the HP data acquisition 


oe, 





system, and the bath temperature through the keyboard. This 
program prints all data as well as stores the data ona 
computer disk. A listing of the computer program is provided 
masAppendix CG. 

3. CALIBRATION PROCEDURE 

a. The bath temperature was set at about oer 

b. A constant temperature is reached when rapid cycling 
of heating and cooling occurs, but wait three minutes to 
enter data. 

c. bnter the bath temperatures, as measured by the 
mercury-in-glass thermometer, into the keyboard. Immediately 
following the data entry, the computer will read the 
thermocouple EMF automatically and print the bath temperature 
and thermocouple EMF (pV). 

d. When the computer prompts for more data, increase 
bath temperature by about 10°C and repeat the above procedure 
up to about OG 

6. Repeat the above procedure for decreasing temperatures. 
fee CALIBRATION CURVE 

a. A least-squares technique was used to generate a 
Pimecworder polynomial in the form of: 

T = a,ita,B*+a,E° 

T is the temperature in degrees celsius and & is the 
thermocouple reading in microvolts. 

b. Values generated for the coefficients are: 


es 0.02635 
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ae B= / 
6.577 E-11 


Ww) 
th 


eee eure AZ 1S a sample printout of calibration 


d. Figure A.3 is a graphical representation of calibra- 


mon daata® 
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APPENDIX F 
THST TUBE CLEANING PROCEDURES 
----Caution---- 

iieetollowing mixture is highly toxic and very irritant 
PiewecOntacvced by the skin. Be very careful not to splash 
the solution in any way. Wear protective gloves and eye 
provection when the actual cleaning is being conducted. 

1. Ensure the surface of the tube is smooth by placing 
in lathe and polishing with copper cleaner (Brasso) and a 
ebean rag. 

2. While still in the lathe, wipe completely with 
acetone followed by ethyl alcohol. 

Seer repare a solution of equal parts of 50% sodium 
hydroxide solution (commercially prepared, available through 
MCB Manufacturing Chemists Inc., Cincinnati, OH) and 
ethyl alcohol. About 4 ounces each mixed in a shallow 
stainless-steel pan is sufficient. The sodium hydroxide 
fie orecipi vate out of solution and form a white paste. 

4. Heat the mixture to about 80°C, but Glee mele) wtsloigeyakie| 
Seaocering. The white pasty texture os the solution should 
now dissolve into a clear liquid. 

5. Completely immerse the tube into the mixture and 
scrub the entire surface with a bristle brush (old tooth- 
brushes work fine). 


6. Rinse with tap water followed by distilled water. 
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7. Allow the tube to remain in distilled water until 
ready for installation. 

@. The nylon holders should also be cleaned with the 
mixture. 

9. The test tube should be installed as soon as possible 


after cleaning. 
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APPENDIX G 
COMPUTER PROGRAM LISTINGS 


1GO' FILE NAME: TC_CAL 
nro?’ REVISED: June 1. 1983 


is DIM Emf¢t)d 

140 PRINTER IS 701 

fa ese Er 

Sooo etter MONTH, DATE AND TIME (MM:DD:HH:MM:SS)” ,DateS 
maven 709: "1D" :DatesS 

eo) SGeteuT 7939;:°TD" 

i Sen teR 709S:;Dates 

eee tnesiNG 12X," "Month, date and time:"",14A°:DateS 
210 BEEP 

oe iNPUT “GIVE A NAME FOR DATA FILE’ ,D_ files 

es CREATE BDAT D_fileS.5 

as ASSIGN ®File TO D_ filed 

250 J=1) 

fou Belly 

ev () PRINT SMG Pek Bath Temp Emf (0) CmFf cpp 
ot ent USING “12X."" (Deg C) Cube roey es (Nmero V)°°" 
29390 Repeat: ! 

390 BEEP 

310 INPUT “ENTER BATH TEMPERATURE (DEG F)",T_bath 

Bi Wepaim— Cl bath-32.)/1.8 

eG QUTPUT 709:"AR AF20 Alot 

Soe Oem et 722:"F1 RI Ti 21 FLI" 

Sse FeR f=0 TO I 

coe. WT PUT 709;:"AS SA” 

Pee SveR 722:Emf CI) 

389 Emf (L>=ABS(CEmf (I))*10°6 

390 WeEAT I 

Pee eet USING “13X.3D.DD.7X.4D.D.5X,4D.D°:T_bath,.Emt(*) 
ie eelPur @ le: T_bath,Emt (*«) 

ae) CEEP 

43 TNPUT “ARE YGU TAKING MORE DATA (1=YES.0=NQ)?",.Go_on 
440 J=Jtl 

459 TF Go_on=!t TKEN Repeat 

46U BEEP 

wo Skint ”* ” 

420 PRINT USING “12X.DD,."" runs were stored in file "",I0A"°:J,D_files 
490 END 
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000! FILE NAME: NSFDRP 


1010 
1020 
1030 
1040 
1050 
1060 


imeweeseD! 23 MAY 1 
DIM Emf¢10) 
Gr=.0127 

Do=.01905 
Dr=.015875 
Dssp=.1524 


ge 


Ax=PI*Dssp°2/4-PI=Do#L ' TG 


=,13335 
L1i=.060325 
L2=.034925 
Li=L!1+¢Do-Di)/4 
L2=L2+(Dr-Di)d/4 
Ci=.029 
Keu=385. 


Rm=Do*«LOG(Do/Di)/(2*Kcu)D 


PRINTER IS 701 
CLEAR 709 
BEEP 


eS VANDI S ISB, 


Bee ESTER MONTH. DATE AND TIME (MM:DO:HH:MN:SS)".DateS 
EU 70S: 1D": Dates 


Poeun 709; TD" 
ENTER 709;Date$ 
felt 

cleats 

MeO ENTER INPUT 
IF Im=1 THEN 

BEEP 


flonth, Gatewangdmetime si=<DateS 
MODE (12=3054A,.2=FILE)".Im 


INPUT “GIVE A NAME FOR THE RAW DiMUGGT 1s US Cy Ish 
Serene BOAT D_ftiles,10 


ELSE 
BEEP 


MORUT GIVE THE NAME OF THE EXISTING DATA FILE” .D_files 


PRINT " “ 


Sa USING “12k 0" 7 


the following analysis was performed for data in file 


INPUT “ENTER THE NUMBER UF RUNS STURED",Nrun 


END IF 
Beer 
INPUT “GIVE A NAME 


BOR PLOT 


Seegneecon! P files.S 


Poo lGreeer ile TO D_ 


files 


ASSIGN @Filep TO P_fileS 


De Glee: ee eet eles 


MEW) SENIER FLOWMETER READING’ .Fm 
esi 7@g°. AR AFZ0 ALSO” 


MOO vee; Fl Rt 


M@UTPUT 709: "AS SA” 


ENTER 722:Bpy 

FOR I=0 TQ 10 
aoe 709: AS SA” 
IF I>4 THEN 

Se=0 

FOR K=0 TQ 10 


1 ie tt i aes 
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Biemer /2e;£ 

Se=SetE 

NEXT K 

Be oe On TE tS 


asic 
BilbeRe lee: & 

emi < L)=ABSCE)*1.E+6 
END IF 

NEXT [I 
Bleek 722:Emft (1) 
Oger urT 713: "TiR2E” 
WAIT 2 

sien (13371 
uw) £13; T2R2E” 
WAIT 2 
Enter 713312 

bE =) THEN 

Beer 


Bee “ENTER MANOMETER READING (mm Hg)",Phg 
INPUT “ENTER HEIGHT OF MANOMETER WATER COLUMN", Puater 


EMD IF 
SUSE 


PrEReer ile:Emf (=) ,Fm.T1.12,Phq.Pwater,Bpv 


END IF 

Tsteam=0 

Fl f=) TO 1 

Tsteam=Isteamt+ .5*«FNIvsv(Emf¢(l)) 
NEXT [I 

Twm=0, 

FOR I=0 TQ 5 

Tw LT) =FNTvsv (Emf (1+5)) 
Twm=Tum+Tu¢ 1) 

NEXT I 

Tum=Twm/6 

Tcan=FNIivsv(Emf¢(10)) 
Poete=imnirvwst(Ilsteam) 
Ptest=(PhgtPuater/I3. Sys] Sree S22 
IF J=1 THEN 

Yst=FNVUuvst(Tsteam) 
Peno-<Ptest-Psat)/Ptest 
Post=1-Ppng 


Mtng=Ppng/(287*(Tsteamr273.i15)/i¥st»Ptest)+Ppng) 


VEng=Mfng/(1.608-.608*MF ng) 
Mf ng=Mfng*!00 

Vi ng=VFng=100 

BEEP 

PRINT 8 o¢@ 


2060 PRINT USING “12X,"""Measured pressure 26° on 
Gee (fa) Pe test 

2070 PRINT USING "12X,""Pressure corresponding to measured steam temp = "",D.3D 
Eee §63636©6ChaD. SS Psat 

2080 PRINT USING "“12X,“"Noncondensable gas concentration = eas) cone 
Vor 1)" «Uing 

2030 PRINT USING "12X."""Noncondensable aas concentration = DDD. nee 
Maes 4) 'sMing 

eros IF nnd? - 35 THEN 

Zima «6d BEEP 

oye «6 SINT OO 

2130 IF Im=1 THEN 
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alee e 


nego SM aaa 


PRINT USING "10X,""Energize the vacuum system """ 
Bier 


INPUT “OK to accept the present run (1=YES,0=N0)?", Ok 


Dek =O TreEN 


Ie, 
DESP 


WAIT 


“NOTE: 


5) 


GOTO 1460 
enw IF 
END IF 
END IF 
END IF 


Liaeelin= | 


Md=Mf=«Rhow 


Vu=MF/(PI*Di~2/4) 
Q=Md*Cpuw*(T2-T1) 


Qp=0/(PI*Do*L) 


Two=TumtQp*Rm*.5 


Dtf=Tsteam- Two 
Kw=FNKu(Tavg) 


Muu=F NMuw( Tavg) 


Rew=Rhow*Vu~«+D1 /Muw 


Pru=FNPru( Tavqg) 


Fel=0. 
Fe2=0. 


Cfr=1. 
H1=Kw*C1/Di<Rew - 
Dt=Q/(PL<Di+(L+Lt*FeltL2*«Fa2) Hid 


.o*Pru- 


THE PRESENT DATA RUN WILL BE DISCARDED!! 


SR 0h) 


Cfc=(Muu/FNMuu (Tavg+Dt))>.14 
IF ABS((Cic-Cf)/Cfed>.01 THEN 
Ch cGrr+Cfe)*«.5 
GOTO 2470 

END IF 
P1=PI*(Di+DoD 


At=(Do-Di)*PI=(DitDods.5 


M1=CHL*P1/(KcutAl))*.5 
fe-F eeciat Dr) 


A2=(Dr-Did*Pl#(D.+Drd*.5 


M2=(Hi*P2/(Kcu*AZ))~.5 


Lmtd=(T2-T1)/LUG((Tsteam-T1)/(Tsteam-T2)) 


Lo=O/(Lmtd*PI=Do*L) 
Fel=FNTanhn(Mia=Li>/CM18LID 
Fe2=FNTanh(MZ=L2)/(M2*L2) 


Ho=1/(1/U0-Do#=L/(Dix(Lt+tLi<«Fet+l2*«Fe2) *Hi)-Rm) 
Dtc=O/(PI*Di<«(L+L! *Felt+L2=«Fe2) *Hi>d 

IF ABS<¢(Dtc-Dt)/Dtc)>.01 THEN 2470 
Troom=FNTIvsv(¢(Emf (3) +Emf¢(4))*.5) 

PRINT 


"UD=" Uo 


Hos=9/(Pl<Do*L*(Tsteam- Tuo)? 
PRINT “HO_STAR=";Hos 


Urg=FMHFq¢(Tsteam) 


Thilm=(Tsteamtlwo)*.5 
Kf =FNKuCTF£Film) 
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Poe eGutTeul, OFile:Emt (),Pm.11,.12.eha.Pvater,bos 
' ANALYSIS BEGINS 

avo Cy! +12)*.5 

Cow=FNCpu (Tava) 

Rhow=r HRhow( Tavq) 

Mf=Fm*.02451*.3048°3/100 





Rhof =FNRhow( Tf ilm) 
Muf =FNMuw (TF i lm) 
Hnu=.725*(K f° 3*Rhof *2*9,.381*HFg/(Muf=Dox*Dtf))*.25 

Hpq=. BS1=KF* *(Rhof~2*9.81*HFg/(Muf*Do*Qp) )* .3333 

PRINT 

PRINT USING “"12X.“"Water velocity Peay Dee (7S) ey 
PRINT USING “12X,."""Reynolds number 

PRINT USING "12X,"""Inside heat-tran coef 
PRINT USING "12X.""Heat flux 

PRINT USING “12X,""Qutside heat-tran coef 
PRINT USING “12X.""Nusselt coefficient 


“"oD.D, ones (HZ 2=h> — aad 
eisove,'  CH/m 2) ip 
PSUs CAM Zak Sine 

Soo ae C(H7m 2K) hie 


au @ uw & a 


PRINT USING "12X,12X,""Nus coef (from heat flux) = "",SDOD,"" (W/m 2-K)""": 


QUTPUT &@Filep:Qp.Hos.Hnu 

IF Im=1 THEN 

Be ele 

INPUT “ARE YOU TAKING MORE DATA (1=YES,0=HO0)?",Go_on 
Ca THEN Repeat 


IF J<Nrun THEN Repeat 

END IF 

IF Im=1 THEN 

BEBE 

PRINT woG 12x, NOTE: “*,DD,°” data runs were stored in file “", 10A™;J 


BEEP 

Prey’ 

ppeemmc (NG “12x, “NOTE: “" .0D,°"X=-Y pairs were stored in plot data file 
went i les 

ASSIGN File TO = 

END 

DEF FNPvst(Tsteam) 

ime 6S) 

DATA —-7.691234564. -26.08023696.-158.1706546 .64.23285504.-118.9646225 
Dame to 1173c,20.9750676,1.E9,6 

READ K(*) 

T=(Tsteamt273.15)/647.3 

Sum=9 

FOR N=0 TO 4 

Sum=Sumt+k (N) <C1-T) °° CN+1) 

NEXT N | 
Or=Sum/(T#Ci tK (5) 401-7) KK CG) = C1 -T) 72) HCP HT) SOR 07) OI - TO DEK C8) ) 
Pr=EXP (Br) 

P=22120000*Pr 

RETURN P 

FNEND 

DEF FNHFaQ(T) 

Brame 49/7 .7389-1*(2.2074+1=(1 .7079E-3-2.8593E-6)) 

RETURN Hfq*1000 

FNEND 

DEF FNMuw(T) 

Mu=1.5/7609473E-3-T+(3.51198576E-5-7T<(3 .5835816E-7-1.365586115e-9*T)) 
RETURN Nu 

FNEND 

DEF FNVvst¢T) 

V=58.45255388-T*(1.51508776-T<«¢ .01372746585-T*¥4. 25366711E- 5) 
RETURN V 

FNEND 

DEF FNCpw(T) 
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Cow=4.21120858-T*(2.26826E-3-1T*(4.42361E-5+2.71428E-7*T)) 
RETURN Cpw*1000 

FNEND 

DEF FNRhow(T) 

Ro=999 .52946+1*¢ .01269-T=(5. 482513E-3-T<+1.234147E-5)>) 
RETURN Ro 

FNEND 

DEF FNPrw(T) 
Prw=107¢(1.09976605-T*(1.3749326E-2-T<¢(3.96887S5SE-5-3.45026E-7*T))) 
RETURN Pru 

FNEND 

DEF FNKuw(T) 
Kw=.5625894+T*(2.2964546E-3-T*¢(!.509766E-5-4 .0581552E-8*1)) 
RETURN Kw 

FNEND 

DEF FNTanh(X) 

P=EXP(X) 

Q=EXP(-X) 

Tanh=(P+Q)/¢(P-Q) 

RETURN Tanh 

FNEND 

DEF FNIvsv(V) 
T=YV%(.026172334416-V4«(9.2447859E-7-V¥6.0746642E-11)) 
RETURN T 

FNEND 

DEr FNHFCT) 
Hf=T<(4,203849-T(5.388132E-4-1T*4.55160317E-6)) 

RETURN Hf*1000 

FNEND 
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O Plle WANE: SIEDER 

ie? ReviseD: faveco.. 190 

0 DIM Emf C10), Tw(5) 

0 Keu=385 

1040! Assign Geometric Variables 


1060 Di=.90127 'Inside Diameter 

1070 Do=.01905 ‘Outside Diameter 

1080 Dr=.015875 'Uutlet End Diameter 
moo = 8L=,.133535 'Condensing Length 

meow Wi=.060G325 ‘finlet End “fin” Length 


imme lez=.0343925 'Gutlet End “fin” Length 

1120 PRINTER IS 701 

1136 BEEP 

1140 CLEAR 7093 

1150 INPUT “ENTER MONTH, DATE AND TIME (MM:DD:HH:MM:SS)",BS 
1160 OUTPUT 709:"TD":;8S 

1170 Series;! 

1180 OUTPUT 709;“TD” 

1190 ENTER 709:AS 
1200 PRINT USING “12X.""Month. date and time: "“".14A";AS 
1210 BEEP 

1220 <INPUT “ENTER INPUT MODE (1=3054A,2=FILE)",Im 

1230 


IF Im=1 THEN 
! oie a 


ZS INPUT “PROVIDE NAME FOR THE DATA FILE” .D_filesS 
meme, CRESTE BDAT D files,10 

fey) CLSE 

eo8 BEEP 

1290 INPUT “PROVIDE NAME GF THE DATA FILE” .D_fileS 
ie00 BEEP 

1310 INPUT “ENTER THE NUMBER OF RUNS STORED” .Nrun 
1320 PRINT USING "12X,""The foliowing analysis was performed for data in file " 
~ 1UA":D_files 

fecee END IF 

[3a BEEP 

1350 INPUT “PROVIDE NAME FOR PLOT DATA FILE’.PlotS 
Poo CREATE BDAT Plots,5 

1370 ASSIGN aFile TU D_files 

1380 ASSIGN @Filep TO PlotS 

1390 0 6J=0 

14NM = S¥s=9 

'410 Sxy=0 

1420 IF Im=1 THEN 

1430' READ DATA THROUGH DATA ACQUISITION SYSTEM 
1440! IF THE INPUT MODE (Im) = 1 

fase bE oP 

1460 INPUT “ENTER FLOWMETER READING" .Fm 

1470 OUTPUT 709:"AR AF2D AL3O" 

foe OUge Ur 722s Fi Ri Ti Zt FLIC 

1490 FAR I=0 TO 10 

1500 OUTPUT 709;"AS SA” 

1510 IF I>4 THEN 

1520 Se=0 


NO 
Gb 
om] 


ale 





Sys: FOR K=0 T0 9 

1540 cCNTER 722:E 

1550 Se=SetE 

1560 NEXT K 

1570 Emf¢I)=ABS(Se/10) 

ioe0 ELSE 

199G ENTER 722;E 

1600 EmfCI)=ABSC(ED 

1610 END IF 

1620 NEXT I 

meso) = GUTPUT 713:“TIR2ZE” 

1640 WAIT 2 

fom ENTER 713:T1 

poo WUIPUT 713: T2R2E” 

1670 WAIT 2 

162 eee, 3-12 

Te20 ELSE 

1700! READ DATA FROM USER-SPECIFIED FILE IF 

1710! INPUT MODE (im) = 2 

oe ehien eer ilesEmf(=),it,T2,Fm 

t7o0°6ENDD LF 

1740! Compute Average Bulk Water Temperature 

1790 Tavqg=(7T1+T2)#.5 

1750! Compute Average Wall Temperature 

ie wal |=0 

i7o0 6F OR 6hc1=56lC6UdTO CUO 

1790) TwCI-5S)=FNTvsv(Emf cI)? 

1800 Twall=Twall+Tuw¢I-5) 

word mEXT If 

182006 Twall=Twall/6 

1030! Compute Thermophysical Properties 

1840 Cow=FNCpis(Tavgq) 

1850 Rhow=r NRhow( Tavg) 

1860 Kw=FNKu( Tava) 

1870 Mf=Fm=.02451~.3048°3/100 'Volume Flowrate of Water (m°3/s) 
Poole Mag=t=Rhow ‘Mass Flowrate of Water (kq/s) 

Poe ee 7Wamt /(PPeDi 2/4) ‘water Velocity (m/s) 

1900) f=Md=Caws<(T2-T1) tHeat Transferred to Cooling Water (W) 
ra10” Dtw=88LGG(Do/Di)/<2*PleKcu*l) ‘Temp Drop Across Tube Wali (Deg C) 
20 Twall=Twvali-Dtwe.5 : 

193 Lata@=(12-1T!)/LO0G<(CTwall-Tl)/<(Twall-T2)) 

1940 Pi=PI#2*Do tHeat-Transfer Perimeter At Inlet 

Beem = ie~2*)r 'Heat-lIransfer Perimeter At Exit 

Pe rH =(uo-Di>*ri-«Do 'Heat-Transfer Area At Inlet 

1970 A2=(Dr-D1)#PI«Dr !Heat-Transfer Area At Exit 

1980 Hi=QO/(PI<*Di-«L=*Lmtd) 

1999 Mi=CHi*P1/(Kceu*A1))7.5 

2000 M2=(Hi*=P2/ (KeuxA2))*.5 

Poe rel =Epmanh<(Mi«L1)/(MI=L1> 'Fin Efficiency At Inlet 

Bees Fee-pNtann«(MZ=L2)/(M2<L2) 'Fin Efficiency At Exit 

eUewee dre =07(Pl=Di<(L+li*Feilt+tlL2=Fe2) «Lmtd 

2040 IF ABS<(Hi-Hic)/Hic)>.01 THEN 

2050 Hi=(HictHid*.5 

2050 GOTO 1990 

2070 END IF 

2ieo PRINT “” " 

2990 PRINT USING “12X,""Position number : iE z S 
2000) «PRINT USTNG "12X%."°"°Wall temperature (Deg ©) : °"”,6°D0D.00.1X)"3 Tw) 
Zee rr iNi USING “12X,""Average wai! temperature = “",DD.DD.°" <«Deq Co’ "sTwall 


He 





PRINT USING “12X,"“Inlet water temperature 
PRINT USING “12X,""Qutlet water temperature 
PRINT USING “t2X.""Log-mean-temp difference 


eee Noel (Deg Cie ° TI 
OOeOOR (Dea ic) wani2 
|B es!) Baal (Deg Coo lned 


aout 
CO 
OC 


PeCneCULH ee HE NUSSELT NUMBER 


Nu=Hic*Di/Kw 

Re=Rhow*Vw*D1/FNMu( Tavg) 
CH=CFNMu(C Tava) /FNMu(Twall))*.14 

Pru=FNPru(Tavq) 

X=Re’ .4*Prwy > .3333*Cf !Compute Sieder-Tate Parameter 


SCOMPUTE COERRIGTENTS POR THE LEAST-SQUARES-FIT 
! STRAIGHT LINE 


PRINT USING “12X,""“Water velocity 

PRINT USING "12X,""Sieder-Tate parameter 
PRiNT USING "12X,.""Nusselt number 

OUTPUT @Filep:X.Nu 

Sx=Sx+X 

Sy =Sy+Nu 

SxXS=SxstXeX 

Sxy=SxytX*Nu 


Sarees. 


“AD DD" y Nu 


im/S)" ‘Vy 


eee iN A USER-SPECIFLED FILE IF 


Cee noe tim) = | 

IF Im=! THEN QUTPUT @File;Emf(*),TI 
eee 

Zee) 

IF Im=1 THE 
INPUT “ARE 


ena 


N 
YOU TAKING MORE DATA ¢(1=YES,0=N0QO)?",Go_on 
THEN 1420 


iF J<Nrun THEN 1420 
END IF 
Ci= Sxy/SXxs 


PRINT ° 

PRINT USING 
Ac=0. 

PRINT " " 

SRempimesctiiG 'cxr, “Least-Squares Line: 

PRINT USING "14X,""Slope 2oe eo. Gd 
PRINT USING “14X,."“Intercept = Da Oe. tAC 
IF Im=1 THEN 
BEEP 

PRINT USING 


Cie steder-late  Cootmicient = ~ ,0D.4D°2Ci 


Bete hess 


"".DD."" data runs were stored in file “",SA":Nru 


ASSIGN @File TQ « 

ASSIGN @Filep TO * 

END 

DEF FNRhow(T) 
Ro=1006.35724-T«(,.774489-T#(2,262459E-2-1T*3.030304E-4)) 

RETURN Ro 

FNEND 

DEF FNPru(T) 

Pn 7 be UD- We .013759325-1=<3S, 9663/5E-5-3.45026E-7*1))>) 
RETURN Br 

FNEND 

DEF FNMutT) 
Mu=1.57609473E-3-T*¢(3.51198576E-5-T«(3.5835816e- 
RETURN Mu 

FNEND 

DEF FNKuw(T) 


7-7). 465556) 15E73)) 
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Rigo? 21000044/7/+1 .52770121209E-3*T 

RETURN Kw 

FNEND 

DEF FNIvsv(Emf) 

V=Emf*1076 

T=Y¥*(.02617334416-V*(9,2447859E-7-V*6 .0746642E-11)) 
RETURN T 

FNEND 

DEF FNCpu(T? 

Cew=(4.21120853-T«(2.26826E-3-T=(4. 42361E-5+T«2.71428E-7)))*1000 
RETURN Cpyw 

FNEND 

DEF FNTanh(X) 

P=EXP(X) 

Q=EXP(-X) 

Tanh=(P+Q)/¢P-Q) 

RETURN Tanh 

FNEND 


ie 





aod ah owe owt 


IO POT PS ter eee ot 
WOM —- OW ONDA MNEWDN- 


a ea oe a ee 
Oe Co Oe oS eS a Se 


40 


PE NAME PLOT 


BEUNTER’ IS 705 
Dee 
DEED "ENTER MINIMUM AND MAXIMUM X-VYALUES", Xmin, Xmax 


INPUT "ENTER MINIMUM AND MAXIMUM Y-VALUES", Ymin, Ymax 
ine) sGNIER STEPSSIZE FOR sX=AXIS",Xstep 
ite eElifeR sTEP SIZE FOR Y-AXIS™,Ystep 


foie tiese tare 2080,2000,8000, 7000: 
Pee come, 100 ,0,.100:;TL 2,0;° 

Si x=!00/¢(Xmax-Amin) 
Sf#y=100/(Ymax-Ymind 

PRINT “PU 0,0 PD” 

FOR Xa=Xmin TQ Xmax STEP Xstep 

Mea xa-Kmin) Sf x 

fete ea eX, WO: XT 

Hexl Xa 

PRINT "PA 100,.0;:PU;" 

PRINT "PU PA 0,0 PD" 

piper 1minm '0! Ymax STEP Ystep 
Y=(Ya-Ymin)*Sfy 

mene PAO, 3Y, YT” 

NEXT Ya 

aoe A 0,100 TL oO 2" 

FOR Xa=Xmin TO Xmax STEP Xstep 
X=(Xa-Xmin) «Sfx 

PROUNT “PAeX,”.1003 XT” 

TEXT Xa 

ereeiy "PA 100.100 PU PA 100.0 PD” 

PUR Ya=‘Ymin '!0 Ymax STEP Ystep 
Y=(Ya-Ymin)«Sfy 

Seine eo PA 100,°,Y, YT" 

NEXT Ya 

PRINT “PA 100.100 PU" 

PRINT “PA G,-2 SR 1.8.2" 

FOR Xa=Xmin TO Xmax STEP Xstep 
X=(Xa-Xmin) Sfx 
Pealiimera <x, ,0:" 

Geet -2,-13LB'tXa3"” 

NEXT Xa 

PRINT “PU PA 0,0" 

FOR Yaz¥min 10 Ymax STEP Ystep 
Y=(Ya-Ymin)*Sfy 

cRotieeerr oO,” :3Y.,°°"° 

Pein or -4,-.25:LB":;Ya;"" 
ules tl et 

BEEP 

INPUT "ENTER X-LABEL",XlabelS 
Beer 

INPUT “ENTER Y-LABEL”".Ylabe!S 
pregmeeene>.2°:PU PA 50,-!0 CP" :-LEN(XlabelS)/2:°0;:LB” 


aan eee cee t,o0 CP 0, :-LENCYlabelS)/2=5/6:"DI 0.1:LB™ 


mae CP 0,0" 
’ 


Repeat: 


Det 
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lapel oc ae 
*Yiabelaw 





PP Ulieeetiienestae Mame OF THE DATA FILE".D_ files 
ae @File TO D_file$ 


aa "ENTER THE BEGINNING RUN NUMBER" Md 
al "ENTER THE NUMBER OF X-Y PAIRS STORED" .Npairs 
INPUT “SELECT A SYMBOL FOR THE PLOTTER (t=*,2=+.3=c,4=0,.5=°)",Sy 
PRInt “PFUSDI 

IF Sy=! THEN PRINT "SM" 

IF Sy=2 THEN PRINT "SM+* 

IF Sy=3 THEN PRINT “SMc"” 

IF Sy=4 THEN PRINT “SMo" 

IF Sy=S THEN PRINT "“SM7"" 

IF Md>Npairs THEN 

ee =) eo thd |) 

ENTER @®File;Xa.Ya 

NEXT [ 

END IF 

FOR I=! TO Npairs 

Erie nmer rite: xXAa.Ya 

X=(Xa-Xmin) =*Sfx 

Y=(Ya-Ymin)*Sfy 

poe PACA, Ye. 

NEXT I 

BEEP 

ASSIGN @File TO ~* 

INPUT “DO YOU HAVE MORE DATA TO BE PLOTTED (1!=YES,0=NQ)?",Go_on 
IF Go_on=1 THEN Repeat 

Peon “PU SiH" 

peo 

INPUT "DO YOU LIKE TO DRAW A STRAIGHT LINE?” ,Go_on 
IF Go_on=1 THEN 

beae 

INPUT "ENTER THE SLOPE"™.SI 

BEEP 

INPUT “ENTER THE INTERCEPT" ,Ac 

FOR Xa=Xmin TU Xmax STEP (Xmax-Xmin) 
Vaepetoi=Xa 

Y=(Ya-Ymin)*Sfy 

X=(Xa-Xnind=Sfx 

IF Y<0 THEN 

Xam=(Ymin-Ac)/S1 

X=(Xam-Xmin) «Sf x 

Y=0 

eit) Ce 

IF Y>100 THEN 

Xam=(Y¥max-Ac)/SI1 

X=(Xam-Xmin)*Sfx 

Y=100 

END IF 

PRENT “PA’,X,Y, PD" 

NE Gleex a 

a 1s 

Pele rue or Ol 

END 
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Qeelee NAME; @ LOSS 

0 *' LAST UPDATED: 23 MAY 83 

0) PRINTER IS 701 

10 CLEAR 709 

20 BEEP 

30 INPUT “ENTER MONTH. DATE AND TIME (MM:DD:HH:MN:SS)" , DateS 
40 HUTPU R703: sabe Dates 

50 eT 709: Fy - 

160 ENTER 709;Date$ 

170 PRINT USING “1t0X,"""Month, date and time: "",!4A";DateS 
180 BEEP 

1909 INPUT “ENTER INPUT MODE (1=3054A,2=FILE)",Im 

200 IF Im=1 THEN 

0 BEEP 

229 PiCvi = GiIveseatiare FOR DATA FILE”,D files 

230 cya BDAT D_file$,15 


Zo) BEEP 

260 Pet ieecrves ee NAME GF THE EXISTING DATA FILE”,D tiles 
270 Bear 

Lal DIPUTS eWieR THE NUMBER OF RUNS STORED” .Nrun 
290 END IF 

309 ASSIGN @File TU D_filesS 

310 BEEP 

B20 Pwheeecevesn NAME FOR FHE GUTPUT FILE’,O files 
330 Cremileeeval O files.i5S 

340 ASSIGN #Fileo TQ O_fileS 

350 K=0 

360 eae 

370 INPUT “OK TO GO AHEAD CHIT ENTER)". Uk 

380 IF Im=1 THEN 

390 Weer 70S:°AR AFIS AL2Z1” 

400 Hevesi ¢2e°"F1 RI fl ZT FLI” 

A1Q pinet=0 1h 2 

420 oreo 709: AS SA” 

AS EMTER 722:Emf¢( 1) 

440 IF I>0 THEN Emf (I) =ABSCEmf¢(1I))*1076 

450 NEXT I 

460 Tsteam=FNTIvsv( (Emf Cl) +Emf(2))<.5) 

470 OUTPUT 709:"AR AF23 AL24" 

480 eee eee PT Ri Tt Zt FL 

4yu eg ee 

500 OUTPUT 709;:"AS SA" 

S10 SItGR ey 22 Em: (J+3) 

Sy7t) Emote fies (Emt (J+3))#10°6 


Sco eX le) 

540 GUTPUT @FilesEmf(*) 
550 EUS 

560 ENTER 3File:sEmf(*) 
S70 END IF 


530 Tsteam=FNIvsv¢ (Emf (1) +Emf(2))*.5) 
530 Troom=FNIvsv¢ (CEmf (3) +Emf(4))*.5) 
500 Power=(Emf(0)*100)°2/5./6«1.E-3 
610 Dt=Tsteam-Troom 
620 PRINT USING “1!0X,3D.3D.3<(DDD.DD,2X)": Power, Isteam,. Troom,Dt 
630 K=K+] 
540 IF Im=!t THEN 
Beer 


ae. 





INPUT “ARE YOU TAKING MORE DATA ¢(1=YES,0=NO)?",Go_on 
IF Go_on=1 THEN 380 

ELSE 

IF K<Nrun THEN 380 

END IF 

END 

DEF FNTvsv(V) 

T=V*(.02617334416-V*(9.2447859E-7-V«6 .0746642£-11)) 
RETURN T 

FNEND 
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Meamtn. date and tine: 


5201214755720 


The following analysis was performed for data in file DDI0 


Position number 

Wall temperature (Deg C) 
Average wall temperature 
Inlet water temperature 
Dutlet water temperature 
Loq-mean-temp difference 
Water velocity 
Sieder-Tate parameter 
Nusselt number 


Position number 

Aall temperature (Deg () 
Average wall temperature 
Inlet water temperature 
Qutlet water temperature 
log-mean-temp difference 
Water velocity 
Sieder-late parameter 
Nusselt number 


Position number 

Wall temperature (Deg C) 
Average wall temperature 
Inlet water temperature 
Hutlet water temperature 
Log-mean-temp difference 
Hater velocity 
Sieder-~Tate parameter 
Nusselt number 


Position number 

Nall temperature (Deg ©) 
Average wall temoerature 
inlet water temperature. 
Outlet water temperature 
Log-mean-temp difference 
Water velocity 
S:eder-Tate parameter 
Nusselt number 


Position number 

Wall temperature (Deg C) 
Average wall temoerature 
Inlet water temperature 
Nutlet water temoerature 
Loa-mean-temp difference 
Water velocity 
Sieder-late parameter 
Nusselt number 


Position number 

Wall temperature (Dea C) 
Average wall temperature 
Inlet water temperature 

Outlet water temperature 


boew it 


boeueu &@ ww uot 


eae 
Bac 5 


BUlece 
SU) 


1G ls 


— vay 


e 3 4 S. 
Pee 32700 2/.65 G5.6)) 26 


(Deg ©) 
(Deg ©) 
(Deg C) 
(Deg C) 
(m/S) 

8 


Z 3 4 

Bor Umea a5 35 
(Deg ©) 
(Deg C) 
Gea, C) 
(Deg C) 
(m/S) 


2 3 4 
Soe loss Un oc. co 
(Deg C) 

(Deg C) 
(Deg C) 
(Deg C) 
(m/S) 

6 


SUZ a0 


1 


SS BS 


Hoeuuwhw uw w 


ete 
S 


53.04 
U8) lle 
Bil 9 
Za DO 

eels 


Wiser 
19 


347. 
1 
G23 


Ces! 


Soe26 


1 


@ & 4 

GAeUG aoe 4e o1.22 
(Deg ©) 
(Deg C) 
(Deg C) 
(Deg C) 
(m/S) 


2 3 4 
B44. Sa 2591.53 
(Deg ©) 

(Dea C) 
(Deg ©) 


yl 


7) 6 
Soc sll) are ee 


3) 6 
Bo 5/7. .60 


= 6 
64.40 56.49 


3 6 
Cory leereyat ll 


S. S) 
Bre) Gf. Sis) <iere: 





Log-mean-temp difference = 25.93 (Deg C) 
Water velocity Se Ga VAS, 
S:eder-Tate parameter = Sy sl are: 
Nusselt number = 371.81 
Position number : 1 c 5 4 S 6 
Wall temperature (Deg C) : 70.32 67.36 62.08 55.23 66.98 59.06 
Average wall temperature = 61.84 (Deg C) 
Inlet water temperature = 33.57 (Deg C) 
Outlet water temperature = 35.09 (Deg C) 
Log-mean-temp difference = 27.51 (Deg C) 
Water velocity = 3625 (in/S>) 
Sieder-Tate parameter = 1223.3 
Nusselt number = 331.04 
Position number 1 2 3 4 5 6 
Wall temperature (Deg C) Tames oes) o6.51° 70.53 62.82 
Average wall temperature = 65.70 (Deg C) 
Inlet water temperature = 35.46 (Deg C) 
Outlet water temperature = 37.16 (Deg C) 
Log-mean-temp difterence = 29.38 (Deg C) 
Water velocity = 2.74 (m/S) 
Sieder-Tate parameter = SGou. 
Nusselt number = 284.11 
Position number 1 2 Si 4 5 6 
Wall temperature (Deg C) 77.43 74.65 69.49 62.86 74.08 66.46 
Average wall temperature = 69.42 (Deg C) 
Inlet water temperature = 37.2/ (Deg C) 
Dutlet water temperature = 39.19 (Deg ©) 
Log-mean-temp difference = 31.18 (Deg ©) 
Water velocity = 2 ne m/s S) 
Sieder-Tate parameter = $354.8 
Nusselt number = | Zales 
Position number 1 zZ 3 4 5 6 
wail temperature (Deg C) Comer a domremua 57.16 77.97 70.37 
Average wall temperature = 73.22 (Deq C) 
Inlet water temperature = 38.92 (Deg C) 
Gutlet water temperature = 41.23 (Deg C) 
!og-mean-temp difference = 33.12 ‘(Deg C) 
Water velocity = 1,54 (m/S) 
Sieder-Tate parameter = 6722.9 
Nusselt number = 200.30 
Sireder-Tate Coefficient = 0294 
Least-Squares Line: 
Slope See OSCE —zZ 
Intercept = Q9.90000E+00 
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MNoOMenGatke and etine wilmncO:to:2/:15 


the following analysis was performed for data in file DRt 


Measured pressure 


Pressure corresponding to measured steam temp 
Noncondensable gas concentration 
Noncondensable gas concentration 


Water velocity 

Reynolds number 

Inside heat-tran coef 
Overall-heat-trans coef 
Heat flux 

Viecide wneat-tran coef 
Nusselt coefficient 

Nus coef (from heat flux? 


Water velocity 

Reynolds number 

Inside heat-tran coef 
ivenven-neat-trans coet 
Heat flux 

Higeci de meat-tran coef 
Nusselt coefficient 

Nus coef (from neat flux) 


Water velocity 

Reynolds number 

Inside heat-tran coef 
liveral!l-heat-trans coef 
Heae fF lux 

itetsine heat-tran coef 
mmissce | tecoet ticient 
miisecoer (trom heat flux) 


Water velocity 

Reynolds number 
Pnoerecemnedt-tran coet 
Overall-heat-trans coef 
Heat flux 

Outside heat-tran coef 
Nusselt coefficient 

Nus coef (from heat flux) 


Water velocity 

Reynolds number 

Inside  naeate= tran coet 
Overall-heat-trans coef 
feat + ips 

ititsideumear tran coet 
iMusseltrcoer: tcient 

Nus coef (from heat flux) 


buen nt w# tl ot wt eu wet t ht wal bhud bt Wb # of 


uous uweuw bow ot ow 


uel t # & uw oo 


9.82 (m/S) 

ist 3922 

$356.2 (W/m °>2-K) 
3393.6 (W/m°2-K) 
2.22899E+05 (W/m ~2) 
19990.5 (W/m°2-K) 
11304.5 (W/m*2-K) 
10797.9 (W/m*2-K) 


1.54 (m/S) 
26418.9 

9974.3 (W/m 2-K) 
4109.5 (W/m*2-K) 
2.68/764E+05 (CH/m*2) 
111665.9 (W/m~2-kK) 
19320.1 (W/m°>2-K) 
10005.0 «(W/m°2-K) 


2.47 (m/S) 

40022.4 

12466.1 (W/m°2-K) 
4725.9 G/m72-K) 
3.06851E+05 (W/m>2) 
10550.9 «(W/m*2-K) 
9922.2 (A/m*2-K) 
9484.8 (bh/m7~2-K) 


Bye is) use. 

Se Sh) 4 

15067.3 (W/m 2-K) 
6231.5 (H/m°2-K) 
3,43200E+05 (W/m 2) 
10926.6 (W/m72-K) 
9511.1 CW/m°2-K) 
9075.4 (7m 2-KD 


3.84 (m/S) 

63586.5 

17728.9 (W/m*2-K) 
5652.2 (W/m 2-K) 

3.61307E+09 (W/m 2) 
11060.4 (W/m°2-k) 
9259.5 (W/m °2-K) 
8889.1 (W/m°2-K) 


Seo / SE +04) (Pap 
SSNS Us Creu) 
5. oe ol 7) 

a Urchlass. 4) 


NOTE: S X=Y pairs were stored in plot data file PDRI 
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eal Condenstation heat 
transfer of steam ona 
Single horizontal tube. 





